home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / tronbbs / tron / scripts / upload < prev    next >
Encoding:
AmigaDOS Script File  |  1996-07-16  |  1.7 KB  |  88 lines

  1. .KEY  file,archive,desc
  2. ;.DEF file=nix
  3. .BRA  <
  4. .KET  >
  5.  
  6.  
  7. ;;;  This script will be executed after an Upload with the
  8. ;;;  name of the Uploaded file.
  9.  
  10. ;;;  archive = "RAW" | "ZIP | "LHA" | "LZX" | "ZOO" | "ARJ" | "ARC" | "DMS"
  11.  
  12.  
  13. cd tron:upload
  14.  
  15.  
  16. ;;;  In this script you can check for viruses
  17.  
  18. ;makedir ram:vircheck
  19. ;copy <file> ram:vircheck
  20. ;lha e ram:vircheck/<file> ram:vircheck
  21. ;virus_checker -q >t:infec STDOUT RAM:vircheck/
  22. ;delete ram:vircheck/#? all
  23. ;delete ram:vircheck
  24.  
  25.  
  26. ;;;  In this script you can remove BBS ads
  27.  
  28. ;;;  In this script you can extract file descriptions (File_ID.DIZ)
  29. ;;;  for use by the BBS
  30.  
  31.  
  32. IF <archive> EQ raw
  33.    list tron:upload/<file>  >>tron:log/uploadlist
  34. EndIf
  35.  
  36. IF <archive> EQ zip
  37.    unzip -d <file> File_ID.DIZ
  38. ;   unzip -l <file>  >>tron:log/uploadlist
  39.    unzip -t <file>  >>tron:log/uploadlist
  40. EndIf
  41.  
  42. IF <archive> EQ lha
  43.    lha d <file> #?.displayme
  44.    lha x <file> File_ID.DIZ
  45. ;   lha l <file>  >>tron:log/uploadlist
  46.    lha t <file>  >>tron:log/uploadlist
  47. EndIf
  48.  
  49. IF <archive> EQ lzx
  50.    lzx d <file> #?.displayme
  51.    lzx x <file> File_ID.DIZ
  52. ;   lzx l <file>  >>tron:log/uploadlist
  53.    lzx t <file>  >>tron:log/uploadlist
  54. EndIf
  55.  
  56. IF <archive> EQ zoo
  57. ;   zoo D <file> #?.displayme
  58.    zoo e <file> File_ID.DIZ
  59. ;   zoo l <file>  >>tron:log/uploadlist
  60.    zoo -t <file>  >>tron:log/uploadlist
  61. EndIf
  62.  
  63. IF <archive> EQ arj
  64.    unarj l <file>  >>tron:log/uploadlist
  65.    unarj t <file>  >>tron:log/uploadlist
  66. EndIf
  67.  
  68. IF <archive> EQ arc
  69.    arc d <file> #?.displayme
  70.    arc x <file> File_ID.DIZ
  71. ;   arc l <file>  >>tron:log/uploadlist
  72.    arc t <file>  >>tron:log/uploadlist
  73. EndIf
  74.  
  75. IF <archive> EQ dms
  76. ;   dms View <file>  >>tron:log/uploadlist
  77.    dms Test <file>  >>tron:log/uploadlist
  78. EndIf
  79.  
  80.  
  81. IF exists File_ID.DIZ
  82.    rename File_ID.DIZ <desc>
  83. EndIf
  84.  
  85.  
  86. cd tron:
  87.  
  88.